

Sub VBFunction_1(ByRef Database_Name)

   
Dim conn, rst, SQL_Table   




Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")


conn.Open "Provider=MSDASQL;DSN="&Database_Name&""     



SQL_Table = "CREATE DATABASE " & SmartTags("alpdatabase")      

Set rst = conn.Execute(SQL_Table)




conn.close

Set conn = Nothing
Set rst = Nothing


End Sub